module Main where

import XI.ExchangeProfile (parseProfile, sampleProfile)
--import XI.Codec
import Codec.Binary.Base64.String
import System.IO.UTF8 (readFile, writeFile)
import Prelude hiding (readFile, writeFile)

testfn = "../svn_hixay_data/ExchangeProfile/xiprofile.xml"
smalltest = "../svn_hixay_data/ExchangeProfile/xiprofilesmall.xml"

main = do
    eprofile <- readFile smalltest
    print $ parseProfile eprofile
    print sampleProfile

-- $Id$
